home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
049a
/
xlax_253.zip
/
PCP.S12
< prev
next >
Wrap
Text File
|
1988-06-02
|
1KB
|
97 lines
/* 1200/2400 Baud PC-Pursuit dialing script for Opus 1.10 or Binkley 1.50 */
/* This is an EXAMPLE script. There is no SUGGESTION that it will work */
/* in any real situation. */
/* Delete INIT for Binkley */
INIT
BAUD
/* Insert your local Telenet access phone number into the next line */
Xmit ATS0=0X4DTTelenetPhone|
pattern 0 1200
pattern 1 2400
pattern 2 RING
pattern 3 BUSY
pattern 4 NO
wait 30
if 0 go1200
if 1 go2400
goto end
:go1200
baud 1200
xmit ~|~D~|
pattern 0 =
pattern 1
pattern 2
pattern 3
pattern 4
wait 10
xmit D1|
pattern 0 @
wait 10
xmit C ~
areacode
xmit /12
goto common
:go2400
baud 2400
xmit ~~~~@~~~~D~~~~|
pattern 0 =
pattern 1
pattern 2
pattern 3
pattern 4
wait 10
xmit D1|
pattern 0 @
wait 10
xmit C ~
areacode
xmit /24
:common
/* Insert your PC-Pursuit username and password in next line (ALL CAPS!!) */
xmit ,USERNAME,PASSWORD|
pattern 0 CONNECTED
pattern 1 @
wait 20
if 1 giveup
xmit ~~|~~I|~~ATZ|
pattern 0 OK
pattern 1
wait 10
xmit |@|
pattern 0 @
wait 10
xmit SET 1:0|
wait 10
xmit CONT|~~ATZ|
pattern 0 OK
wait 10
/* Next line should equal "xmit ^E|" / "xmit \005|" / "xmit "+chr$(5)+"|" */
xmit |
pattern 0 *
wait 10
xmit D
phone
xmit |
pattern 0 LINE
pattern 1 *
wait 30
if 1 giveup
session
goto exit
:giveup
xmit @|~~~~Hangup|
:exit